APPENDIX H 



// 
// 
// 
// 
// 



#ifndef _HYPOLIST_HPP_ 
#define _HYPOLIST_HPP_ 

template<class T> 

Boolean SparseList<T>: :Has_No_Kids(t_ptr node) const 
{ 

//dummy definition so that at least one instance of 
//ImpObjectList<T> and linker can find the member function of the 

class 

ImpObjectList<T> dummy; 

return((Boolean)(List[node] . num_kids==0)) ; 
} 



template<class T> 

SparseList<T>: :SparseList(natural chunk) 
{ 

chunk_size=chunk; 
free_list=0; 
start_list=0; 
dim_f ree=0; 

//allocate the nihil=0 element this can't be used 
List. Destroy _And_ReDim(l) ; 



// 
// 
// 
// 
// 
// 
// 
// 
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return; 
} 



template<class T> 



void SparseList<T>: :Restart() 
{ 

free_list=0; 

start_List=0; 
dim_free=0; 

//allocate the nihil=0 element this can't be used 

List . Destroy _And_ReDim(l) ; 

return; 

} 



template<class T> 
void Sparsel_ist<T>: :Reset() 
{ 

free_list=0; 

start_list=0; 

dim_free=0; 

return; 
} 



template<class T> 

void SparseList<T>: : Allocate_MemO 
{ 

natural i ; 

t.ptr temp=List.Dim(); 

Li st . Save_And__ReDim(chunk_si ze+temp) ; 

//link the node of free list 
for (i=temp; i<temp+chunk_size-l; i++) 
List[i] .link=i+l; 

List [List. DimO-l].link=free_list; 

free_list=temp; 

dim_f ree+=chunk_size ; 

return; 
} 



template<class T> 

t_ptr SparseList<T>: :Create(const T & info,t_ptr parent) 
{ 



t_ptr temp; 



if (free_list==0) 

Allocate_Mem(); 

//get one node from free list 
temp=free_list; 
free_list=List[temp] .link; 
dim_free-- ; 

//verify that free_node is really free 
Assert(l_ist[temp] ,num_kids==Node: :Kids_Of_Free_Node()) ; 
List [temp] .link=parent; 
List [temp] ♦num_kids=0; 
List [temp] ,info=info; 
List[parent] .num_kids++; 

return temp; 
} 



template<class T> 

t_index SparseList<T>: :Num_Node() const 
{ 

return (List .Dim()-dim_free-l); 
} 



template<class T> 

t_ptr SparseList<T>: :Next(t_ptr son) const 
{ 

Assert (son>0); 
return List[son] .link; 
} 



template<class T> 

void SparseList<T>: :Destroy_Node(t_ptr node) 
{ 

Assert(node>0); 

if (List [node] .num_kids>0) 

merr«"Attempt to destroy referenced node"; 

//decrease parent's num.kids 
List[Next(node)] .num_kids--; 



//add to free list 

List [node] . 1 i nk=f r ee_l i st ; 

free_list=node; 

Li st [f r ee_l i st] . nurruki ds=Node : : Ki ds_0f _F ree_Node() ; 
dim_free++; 

return; 
} 



template<class T> 

void SparseList<T>: :Backtrack_From(ImpObjectList<T> & sequence, t_ptr node) 
{ 

t_index i=0; 

Assert(node>0); 
sequence. Reset(); 
do { 

sequence . Save_And_ReDim(i+l) ; 

sequence[i]=(*this)[node] ; 

i++; 

node=Next(node) ; 
} 

while ( node!=0); 

// eliminate phantom node 

// is the following instruction necessary in order to eliminate 
// silence and duplicated typo? 
sequence . Save_And_ReDim(i -1) ; 
T temp; 

for (i=0; i<sequence.Dim()/2; i++) 
{ 

temp=sequence[i] ; 

sequence[i]=sequence[sequence.DimC)-i-l] ; 

sequence[sequence.Dim()-i-l]=temp; 

} 

return; 
} 



template<class T> 

void SparseList<T>: :Destroy_Branch(t_ptr node) 
{ 

t_ptr temp; 
Assert(node>0) ; 



if (List [node] .num_kids>0) 

merr«"Attempt to destroy referenced node"; 

do { 

temp=Next(node); 
Destroy_Node(node) ; 
node=temp ; 
} 

while (List [node] .num_kids==0 AND node!=0); 

return; 
} 



template<class T> 

T & SparseList<T>: : operator [](const t_ptr son) 
{ 

Assert(son>0); 

Assert(List[son] .num_kids != Node: :Kids_Of_Free_Node()); 

return Li st [son] . info; 
} 



template<class T> 

const T & SparseList<T>: : operator [](const t_ptr son)const 
{ 

Assert(son>0); 

Assert(List[son] .numjdds != Node: :Kids_Of_Free_Node()); 

return List [son] .info; 
} 



template<class T> 
WellTree<T>: :~WellTree() 
{ 

l_list.Reset(); 
leaves_di r . Reset() ; 
kid.dir .Reset(); 
} 

template<class T> 
void WellTree<T>: :Reset() 
{ 



leaves_di r . ResetO ; 
kid_dir .ResetO; 
l.list.RestartO ; 
} 



//needed by Viterbi .numjnypotesis 
template<class T> 

inline t_index WellTree<T>: :Num_Elements() const 
{ 

return (l_list.Num_Node()); 
} 



template<class T> 

inline t_index WellTree<T>: :KidsJDim() const 
{ 

return kid_dir.Dim(); 
} 



template<class T> 

inline t_index WellTree<T>: :Leaves_DimO const 
{ 

return leaves_dir.Dim(); 
} 



template<class T> 

void WellTree<T>: :ReDim.Leaves_Dir_To(const t_index ix) 
{ 

leaves_di r . Save_And_ReDim(ix) ; 

return; 
} 



template<class T> 

inline void WellTree<T>: :Exchange_Leaves_IndexesCconst t_index i, 

const 

t.index j) 
{ 

t_index aux; 

aux=leaves_dir[i] ; 
leaves_dir[i]=leaves_dir[j] ; 
leaves_dir[j]=aux; 



return; 
} 



template<class T> 

Boolean WellTree<T>: :Check_Kid_Presence_And_Get_Num(const T & actjdd, 

p_kid & kid_idx) 

{ 

t_index i=0; 
t_index kid_num; 

kid_num = kid_dir .Dim(); 
if (kid_num==0) 

return (Boolean) FALSE; 

else{ 

while (i<kid_num AND act_kid!=l_list[kid_dir[i]]) 

i++; 

if (i==kid_num) 

return (Boolean)FALSE; 

else{ 

kid_idx=i; 

return (Boolean)TRUE; 
} 

} // end of else 

} 



template<class T> 

inline const T& WellTree<T>: :Get_Leaf_Info(const p.leaf leaf)const 
{ 

return (l_list[leaves_dir[leaf]]); 
} 

template<class T> 

inline T& WellTree<T>: :Get_Leaf_Info(const p_leaf leaf) 
{ 

return (l_list[leaves_dir[leaf]]); 
} 

template<class T> 

inline const T& WellTree<T>: :Get_Kid_Info(const p_kid kid)const 
{ 

return (l_list[kid_dir[kid]]); 



} 



template<class T> 

inline T& WellTree<T>: :Get_Kid__Info(const p_kid kid) 
{ 

return (l_list[kid_dir[kid]]); 
} 

template<class T> 

inline void WellTree<T>: :Create_First_Leaf_Of_Tree(const T& info) 
{ 

//if no elements in tree create leaf 
Assert(l_list.Num_Node()==0); 
leaves_di r . Dest roy_And_ReDim(l) ; 
//0 pointer is NULL 
leaves_dir[0]=l_List.Create(info,0); 

return; 
} 



template<class T> 

inline void Wei lTree<T> : :Add_Kid_To_Leaf (const T& info, p_leaf leaf) 
{ 

//if no elements in tree create a kid 
if (l_list.Num_Node()==0) 
{ 

kid_di r . Destroy _And__ReDim(l) ; 

//0 pointer is NULL 

ki d_di r [0]=l_li st . Create(i nf o , 0) ; 

return; 

} 

//abort if tree not empty and no leaves 
Assert(l_list.Num_Node()>0 AND leaves_dir.Dim()!=0); 

//abort if more than one well created 
Assert(l_list.NuiOlode()>0 AND leaves_dir[leaf] !=0); 

t_index kid_dim=kid_dir .Dim(); 
kid_di r . Save_And_ReDim(kid_dim+l) ; 

kid_dir[kid_dim]=l_list.Create(info,leaves_dir[leaf]); 
return; 

-} 



template<class T> 

void WellTree<T>: :Prune_AUJ)ead_LeafO 
{ 

t_index i; 

t_i ndex num_leaves=leaves_di r . DimQ ; 

// here its not necessary to update leaves_dir 
// since next_gen follows 
for (i=0; i<num_leaves; i++) 

if (l_list.Has_No_Kids(leaves_dir[i]) ) 
Prune_Blind_Branch_From_Leaf(i); 

return; 
} 

template<class T> 

inline void WellTree<T>: :Prune_Blind_Branch_From_Leaf(p_leaf leaf) 
{ 

Assert(leaves_di r . Dim()>=l) ; 

I J.ist. Destroy J3ranch(leaves_dir [leaf]); 

return; 
} 



//Backtrack_from(a_node) returns a new list with every element 
//containing address of every nodes along path sequence 
template<class T> 

inline void WellTree<T>: :Backtrack_From(ImpObjectList<T> & sequence, p_leaf 
leaf) 

' { 

l_list . Backtrack_From(sequence , leaves_di r [leaf]) ; 
} 

//start the next generation transform kid.dir leaves_dir; 
template<class T> 

inline void WellTree<T>: :Next_Gen() // leaves=kid 
{ 

leaves_di r=kid_di r ; 

kid_dir.Reset(); 

return; 

} 



template<class T> 



inline void WellTree<T>: :Subst_Old_Kid_Destroy_Old_Branch_Ins_New(p_kid 
oldjdd, 

const T & info,p_leaf new_f other) 

{ 

l_Li st . Dest roy_Node(kid_di r [old_kid] ) ; 

kid_di r [old_kid]=l_list . Create(info , leaves.di r[new_f cither] ) ; 

return; 
} 

#endif 



